home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 18
/
AMIGAplus Sonderheft 18 (1999)(ICP)(DE)[!].iso
/
PD
/
Anwendungen
/
PDHFIC_2.5
/
Install
< prev
next >
Wrap
Text File
|
1999-01-04
|
2KB
|
109 lines
; $VER: PDHFIC 2.2 (01.10.98)
(welcome)
(set #largepartition @default-dest)
(set #dest
(askdir
(prompt "Where do you want to install PDHFIC?\n"
"A drawer named 'PDHFIC' will be created there.")
(help @askdir-help)
(default @default-dest) ; defaults to largest partition
)
)
(set @default-dest (tackon #dest "PDHFIC"))
(if (exists @default-dest (noreq))
(makedir @default-dest (infos))
)
(copyfiles
(prompt "Copying PDHFIC")
(help @copyfiles-help)
(source "")
(dest @default-dest)
(infos)
(optional "oknodelete" "force" "askuser")
(choices "PDHFIC" "extscale" "PDHFIC.guide" "Examples")
)
(complete 40)
(if (exists "PPaint:" (noreq))
(
(copyfiles
(prompt "Copying SaveSCR.pprx")
(help @copyfiles-help)
(source "ARexx/SaveSCR.pprx")
(dest "PPaint:Rexx")
(confirm)
(infos)
)
(set #instmacro
(askbool
(prompt "Do you want SaveSCR.pprx to be installed "
"into PPaint's macro list?")
(help @askbool-help)
(default 1)
)
)
(if #instmacro
(
(set #ppaint
(askfile
(prompt "Please select your PPaint settings file")
(help "Warning: If there are any spaces in the filename, then this will not work properly!\n\n" @askfile-help)
(default "PPaint:PPaint_Prefs/Startup_1.set")
)
)
(run "ECHO >>" #ppaint " \"MACRO = *\"Save SCR*\", *\"*\", *\"PPaint:Rexx/SaveSCR.pprx*\", *\"*\"\"")
)
)
)
)
; MACRO = "Save SCR", "", "PPaint:Rexx/SaveSCR.pprx", ""
(complete 80)
(set #zxam
(askbool
(prompt "Do you have the emaulator 'ZXAM' installed?")
(help "The included script 'LoadDT.zxam' will "
"allow you to load Datatypes images into ZXAM's Spectrum "
"screen memory.")
(default 0)
)
)
(if #zxam
(
(set #zxamrexx
(askdir
(prompt "Please select ZXAM's script drawer.")
(help @askdir-help)
(default (tackon #largepartition "ZXAM/ZXAM_Rexx"))
)
)
(copyfiles
(prompt "Copying LoadDT.zxam...")
(help @copyfiles-help)
(source "ARexx/LoadDT.zxam")
(dest #zxamrexx)
(infos)
)
)
)
(complete 100)
(exit)